home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib07.dsk / SCROLL LEFT LOADER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  459b  |  15 lines
  1. 10  REM  SCROLL LEFT LOADER
  2. 20  INPUT "ENTER BASE ADDRESS: ";B
  3. 30 I = 0
  4. 40  READ J: IF J <0  THEN 60
  5. 50  POKE B +I,J:I = I +1: GOTO 40
  6. 60  PRINT "SCROLL.LEFT LOADDED AT "B
  7. 70  PRINT "LENGTH : "I" BYTES. NEXT ADDR: "B +I
  8. 80  END 
  9. 90  DATA  165,33,56,233,1,133,0
  10. 100  DATA  165,34,197,35,240,31
  11. 110  DATA  72,32,36,252,165,40,105,1,133,42
  12. 120  DATA  165,41,133,43
  13. 130  DATA  160,0, 177,42,145,40,200,196,0,208,247
  14. 140  DATA  104,24,105,1,16,221,96
  15. 150  DATA  -1